home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / c-part1 / 7310 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  1.6 KB
  1. Path: news1.radix.net!spp
  2. From: spp@syrinx.hideout.com (Stephen P Potter)
  3. Newsgroups: comp.lang.misc,comp.lang.perl.misc,comp.lang.tcl,comp.lang.c,comp.lang.java
  4. Subject: Re: Readable Perl (was: Re: Relative Speed of Perl vs. Tcl vs. C)
  5. Date: 16 Feb 1996 05:13:42 GMT
  6. Organization: RadixNet Internet Services
  7. Message-ID: <SPP.96Feb16001342@syrinx.hideout.com>
  8. References: <4e3a2u$eoa@wcap.centerline.com> <4fncgf$96e@solutions.solon.com>
  9.     <JTV2J.96Feb12142743@mamba.cs.virginia.edu>
  10.     <ukd97hwzkc.fsf_-_@linda.teleport.com>
  11.     <4g0drdINN167@keats.ugrad.cs.ubc.ca>
  12. Reply-To: spp@pencom.com
  13. NNTP-Posting-Host: dialin23.annex1.radix.net
  14. In-reply-to: c2a192@ugrad.cs.ubc.ca's message of 15 Feb 1996 14:58:53 -0800
  15.  
  16. In article <4g0drdINN167@keats.ugrad.cs.ubc.ca> c2a192@ugrad.cs.ubc.ca (Kazimir Kylheku) writes:
  17.    None of the above, bud.
  18.  
  19.    I find this readable
  20.  
  21.        for x in 1 2 3 4 5 6 7 8 9 10 ; do
  22.            echo "I can count to" $x
  23.        done
  24.  
  25.    followed by, in second place:
  26.  
  27.        x=1
  28.        while [ ! "$x" = "11" ] ; do
  29.            echo "I can count to" $x
  30.            : $(( x += 1 ))
  31.        done
  32.  
  33.    ...and third place:
  34.  
  35.        ...
  36.        movl    $1, %edx
  37.    loop:    pushl    %edx
  38.        movl    $message, %eax
  39.        pushl    %eax
  40.        call    _printf
  41.        inc    %edx
  42.        cmpl    $10, %edx
  43.        jae    loop
  44.        ...
  45.    message    .ascii    "I can count to %d\n\0"
  46.  
  47. Ummm... oh forget it.  It isn't worth going there.
  48.  
  49. -spp
  50. --
  51. Stephen P Potter        Pencom Systems Administration              Beaching It 
  52. spp@psa.pencom.com    Pager: 1-800-759-8888, 547-9561     Work: 703-860-2222
  53. "I don't care whether people actually like Perl, just so long as they *think*
  54.     they like it...  ;-)"    -Larry Wall
  55.